program testRedundantExpressionElimination;

class testRedundantExpressionElimination
BEGIN
   
   VAR dd, ee : integer;

FUNCTION testRedundantExpressionElimination;
BEGIN
   ee := 1;

   IF True THEN
      ee := ee
   ELSE
      dd := 6
END

END
.

